1 GR : COLOR= 15: FOR I = 0 TO 1: HLIN 0,39 AT 39 *I: VLIN 0,39 AT 39 *I: READ X(I),Y(I),C(I),V(I),E(I),W(I),S(I),N(I),A$(I): NEXT : FOR V = 0 TO 1: FOR I = 0 TO 1: COLOR= C(I): PLOT X(I),Y(I): NEXT :K = PEEK(49152) -193: POKE 49168,0: FOR I = 0 TO 1:F(I) = (K = E(I)) -(K = W(I))
2 G(I) = (K = S(I)) -(K = N(I)):H(I) = (H(I) +F(I) * NOT H(I)) * NOT G(I):V(I) = (V(I) +G(I) * NOT V(I)) * NOT F(I):X(I) = X(I) +H(I):Y(I) = Y(I) +V(I): NEXT :V = ( SCRN( X(0),Y(0)) < >0) *2 +( SCRN( X(1),Y(1)) < >0): NEXT : PRINT A$(V -2): DATA 9,39,2,-1,18,0,25,22,BLUE,29,0,11,1,10,9,12,8,PINK